home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / util / cli / syp.lha / syp / source / syp_prefs.ascii < prev   
Encoding:
Text File  |  1999-05-19  |  1.1 KB  |  66 lines
  1. ; opi
  2. ; sukksukkfukk
  3.  
  4. V$="$VER: show ya progresssss by opi.dadethmeat"
  5. INCLUDE "inc:pr"
  6.  
  7. nil.l=Open_("nil:",0)
  8.  
  9. If NumPars<2 Goto help
  10.  
  11. kom1$=Left$(Par$(1),5)
  12. kom2$=Left$(Par$(2),5)
  13.  
  14. If kom1$=kom2$ Then Goto help
  15.  
  16.   If kom1$="prog=" Then Gosub setprog1
  17.   If kom1$="proc=" Then Gosub setproc1
  18.   If kom2$="proc=" Then Gosub setproc2
  19.   If kom2$="prog=" Then Gosub setprog2
  20. End
  21.  
  22. .setprog1
  23.  
  24.     co$=Right$(Par$(1),Len(Par$(1))-5)
  25.     c$="echo "+co$+" >env:sypic_n"
  26.     Execute_ c$,nil,nil
  27. Return
  28.  
  29. .setprog2
  30.  
  31.     co$=Right$(Par$(2),Len(Par$(2))-5)
  32.     c$="echo "+co$+" >env:sypic_n"
  33.     Execute_ c$,nil,nil
  34. Return
  35.  
  36. .setproc1
  37.  
  38.     co$=Right$(Par$(1),Len(Par$(1))-5)
  39.     c$="echo "+co$+" >env:sypic_p"
  40.     Execute_ c$,nil,nil
  41. Return
  42.  
  43. .setproc2
  44.  
  45.     co$=Right$(Par$(2),Len(Par$(2))-5)
  46.     co=Val(co$)
  47.     co$=Str$(co)
  48.     c$="echo "+co$+" >env:sypic_p"
  49.     Execute_ c$,nil,nil
  50. Return
  51.  
  52.  
  53. .help
  54. pr{""}
  55. pr{" sypic config program    "}
  56. pr{" sHOW yOUR pROGRAM iN cLI v.02"}
  57. pr{""}
  58. pr{"Usage:"}
  59. pr{""}
  60. pr{"prog=<progname> proc=<progress>"}
  61. pr{""}
  62. pr{"any bug report to opi@amigascne.org"}
  63. pr{""}
  64.  
  65.  
  66.